home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n06.arc / POKEWORD.ASM < prev    next >
Assembly Source File  |  1991-03-06  |  884b  |  32 lines
  1. ;----- POKEWORD.ASM
  2. ;
  3. ;Declare and use these routines as follows:
  4. ;
  5. ;DECLARE SUB PokeWord(BYVAL Segment%, BYVAL Address%, BYVAL Value%)
  6. ;DECLARE FUNCTION PeekWord%(BYVAL Segment%, BYVAL Address%)
  7. ;
  8. ;CALL PokeWord(Segment%, Address%, Value%)
  9. ;Word = PeekWord%(Segment%, Address%)
  10.  
  11. .Model Medium, Basic
  12. .Code
  13.  
  14. PokeWord Proc, PokeAdr:DWord, Value:Word
  15.  
  16.     Les  BX,PokeAdr               ;get the segmented address to poke to
  17.     Mov  AX,Value                 ;and the value to place there
  18.     Mov  ES:[BX],AX               ;put 'er there
  19.     Ret                           ;return to BASIC
  20.  
  21. PokeWord Endp
  22.  
  23.  
  24. PeekWord Proc, PeekAdr:DWord
  25.  
  26.     Les  BX,PeekAdr               ;get the segmented address to peek from
  27.     Mov  AX,ES:[BX]               ;load AX with the function output
  28.     Ret                           ;return to BASIC
  29.  
  30. PeekWord Endp
  31. End
  32.